<%
Dim Mail

Set Mail=CreateObject("CDO.Message")

Mail.From = "vishalramteke2002@yahoo.com"
Mail.To= "vishalramteke2002@gmail.com"
Mail.Subject = "test email"

Mail.TextBody = "test"

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 

Mail.Configuration.Fields.Update

Mail.Send

if err<>0 then
	Response.Write(err)
else
	Set objEmail = Nothing
 	response.redirect "contact-us.html"
end if

%>